;File match_handler.lisp
;Abstract:
;	-'delete' all elements that are -1, and shift down
;	-top row should be randomized
;	-create function Handle-Matches(level)

(defun Handle-Matches (level) 
  (mapcar #'regenerateColumn level)
)

(defun regenerateColumn(column)
  (let* ((columnRev (reverse column))  (s (remove -1 columnRev)))
    (loop while ( > (length columnRev) (length s)) do
      (score-u 1) (setq s (append s (list (num-r))))
    )
    (reverse s)
  )
)
